home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / NTP Option 1.ttp < prev    next >
INI File  |  2005-03-15  |  1KB  |  56 lines
  1. [SETTINGS]
  2. category=Windows Tweaks::Network::Internet Time Synchronization Interval
  3. Caption=Modify Internet Time Synchronization Interval
  4. version=1.0
  5. OSVERSION=XP,2003
  6. #=This tweak is used to modify the interval between attempts to synchronize the system clock to an accurate time source on the Internet.
  7. #=\n\nThe default interval is 10080 minutes (7 days). To reset to the default, clear the text box.
  8. Author=
  9.  
  10.  
  11. [INTERFACE]
  12. TYPE=multi
  13. type0=spin
  14. Text0=Interval (minutes)
  15. style0=1,65000
  16.  
  17.  
  18. [SCRIPT]
  19. Dim sPath
  20. sPath="HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\SpecialPollInterval"
  21.  
  22. Sub OnInit() 
  23. Dim s,t
  24.  if regkeyexists("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient")=false then
  25.  DisableWindow    
  26.  exit sub
  27. end if
  28.  
  29.  s=RegReadValue(sPath)
  30.  if IsEmpty(s) then
  31.     SetItemText 0,""
  32.  else
  33.     If IsNumeric(s)=true then
  34.        t=CLng(s)
  35.        t=t/60   '=minutes
  36.        SetItemText 0,t
  37.     end if
  38.  end if
  39. End Sub
  40.  
  41. Sub OnApply(x,y)
  42.  
  43. Dim s,t
  44.  s=GetItemText(0)
  45.  if len(s) = 0 then s = "10080"
  46.     'if RegValueExists(sPath) then s="10080"
  47.     t=Clng(s)
  48.     if t = 0 then t = 10080
  49.      t=t*60 'seconds
  50.      RegWriteValue sPath,t,2
  51.      Call Restart()
  52.     'end if
  53.  'end if 
  54.  
  55. End Sub
  56.